VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Proxy"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'
'This class only exists to test the concept of local
'objects being destroyed at the end of a method
'
Option Explicit

Private mName As String

Public Property Get name() As Variant
name = mName
End Property

Public Property Let name(aName As Variant)
mName = aName
gLogger.Log mName + " created"
End Property

Private Sub Class_Terminate()
gLogger.Log mName + " destroyed"
End Sub
